<%session("rnew")="rnew"%> <% dim xxid xxid=trim(request("id")) exec="select * from ly where id=" + CStr(xxid) + " " Set RS = Server.CreateObject("ADODB.RecordSet") rs.Open exec, Conn, 1, 2 y=rs("yd") y=y+1 rs("yd")=y rs.update session("rtid")=xxid %> ::留言板::

回到留言首页

书写信留言
  

<%if rs("jh")=1 then %><%else%>·<%end if%>

">

标题:<%=rs("title")%> <%if rs("bl")=1 then %><%=rs("name")%> <%else%><%=rs("name")%><%end if%>
<%if rs("uploadfile")<>"" then%> <%end if%>
上传的图片:" align="top">

  <%=rs("nei")%>

[ 发表时间:<%=rs("t")%> ]

">明镜高悬

<% exec2="select * from ly where rt=" + CStr(xxid) + " order by id" set rs2=conn.execute(exec2) x=0 %> <%do while (not rs2.EOF)%>

<%if rs2("jh")=1 then %><%else%>·<%end if%>

">

标题:<%=rs2("title")%>

<%if rs2("bl")=1 then %><%=rs2("name")%> <%else%><%=rs2("name")%><%end if%>

<%if rs2("uploadfile")<>"" then%> <%end if%>
上传的图片:" align="top">

  <%=rs2("nei")%>

[ 发表时间:<%=rs2("t")%> ]

">明镜高悬

<%x=x+1%> <%rs2.MoveNext%> <%loop%>
   

::: 您 可 以 在 此 直 接 回 复 当 前 主 题 :::

发 言 标 题: "> (标题限制 20 个汉字以内)*
发  表  人:
(名字限制 7 个汉字以内)*
选 择 表 情: